home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 1 / LIGHT-ROM 1 (Amiga Library Services)(1994).iso / ffdisks / d885.lha / False / other / unpack.f < prev   
Text File  |  1993-07-16  |  326b  |  32 lines
  1. { depack.f }
  2. {remove first until carriage return (redirection gives this shit) }
  3. [^l:]
  4. [l;10=~]#
  5. {is first char a packcode?}
  6.  l;'#=$
  7.  [
  8. {yes...}
  9.   ^l:^b:[b;0>][l;,b;1-b:]#
  10.  ]
  11.  ?
  12.  ~
  13.  [
  14.   l;,
  15.  ]
  16.  ?
  17. {possible depacking first char done.
  18.  now the rest.}
  19. [^$a:1_=~]
  20. [a;'#=$
  21.  [
  22.   ^a:^b:[b;0>][a;,b;1-b:]#
  23.  ]
  24.  ?
  25.  ~
  26.  [
  27.   a;,
  28.  ]
  29.  ?
  30. ]
  31. #
  32.